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-- WindowsA.Mesa Edited by Sandman on May 12, 1978 4:48 PM 

DIRECTORY 

BitBUDefs: FROM "bitbltdefs" USING [BBptr, BBTable, BITBLT], 

RectangleDefs: FROM "rectangledef s" USING [ 

ClearBoxInRectangle, ComputeCharWidth , DrawBoxInRectangle, FAptr, 
FCDptr, GetDefaultFont, GrayArray, GrayPtr, InvertBoxInRectangle, 
leftmargin, RectangleError , WriteRectangleString] , 

StreamDefs: FROM "streanidef s" USING [ 

CleanupDiskStream, CloseDiskStream, DisplayHandle, FileLength, Getlndex, 
Grindex, Modifylndex, OpenDiskStream, OpenKeyStream, ScrollDisplay , 
SetDisplayLine, Setlndex, StreamError, StreamErrorCode, WriteDispl ayChar] , 

WindowDefs: FROM "windowdefs" USING [ 

BMHandle, DisplayHandle, Nulllndex, Rptr, StreamHandle, Streamlndex, 
UpdateSelection, WindowHandle, xCoord, yCoord]; 

DEFINITIONS FROM StreamDefs, RectangleDefs, WindowDefs; 

WindowsA: PROGRAM 

IMPORTS RectangleDefs, StreamDefs, WindowDefs 
EXPORTS WindowDefs SHARES WindowDefs, StreamDefs « 
BEGIN 



currentwindow: WindowHandle ♦- NIL; 

def aul twindow: WindowHandle <- NIL; 

maxwindows: CARDINAL = 15; 

maxlines: CARDINAL = 80; 

linestarts: ARRAY [1. .max! ines] OF Streamlndex; 



ControlA: CHARACTER « 
BS; CHARACTER « IOC; 
CR: CHARACTER « 15C; 



IC; 



-- mouse locations 

xmloc: POINTER = L00PH0LE[424B] 

ymloc: POINTER = L00PH0LE[425B] 

xcloc: POINTER = L00PH0LE[426B] 

ycloc: POINTER = L00PH0LE[427B] 

-- Mesa Display Window Routines 



UnlinkDisplayWindow: PUBLIC PROCEDURE [w; WindowHandle] 
BEGIN 

next: WindowHandle; 
-- check if only window 
IF w.link = w THEN currentwindow <- NIL 
ELSE 

BEGIN 

IF w = currentwindow THEN currentwindow *- w.link; 

next ♦- w; 

WHILE next. link # w DO next <- next. link; ENDLOOP; 

next. 1 ink *- w. 1 ink ; 

END; 
w.link <- NIL; 
END; 



RepaintDisplayWindows: PUBLIC PROCEDURE [mapdata: BMHandle] 
BEGIN 

-- declare locals 
i. J: INTEGER; 
w: WindowHandle; 

wa: ARRAY[0 . .maxwindows) OF WindowHandle; 
-- Build array of window handles 
i ♦- 0; 

IF (w <- currentwindow) « NIL THEN RETURN; 
DO 

wa[i] <- w; 

w <- w. 1 ink; 

i *- i + 1; 

IF w « currentwindow THEN EXIT 

ENDLOOP; 
-~ now paint them in reverse order 
FOR j DECREASING IN [0..i) DO 

SetCurrentDisplayWindow[wa[ j]] ; 

ENDLOOP; 
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END; 

PaintDisplayWindow: PUBLIC PROCEDURE [w: WindowHandle] ■ 
BEGIN 

-- declare locals 
rectangle: Rptr « w. rectangle; 
clearwords: GrayArray +- [0, 0, 0, 0]; 
clear: GrayPtr ■ 6c1earwords; 
-- first see if it's visible 
IF w. rectangle. visible » FALSE THEN RETURN; 
-- clear it and draw a box around it 
IF w ■ currentwindow THEN blinkOn <- FALSE; 

ClearBoxInRectangle[rectangle, 0, rectangle. cw, 0, rectangle. ch , clear]; 
DrawDispl ayWindow[w] ; 
-- do type dependent stuff 
IF w.ds # NIL THEN 

BEGIN 

SetDisplayLine[w.ds , 1, leftmargin]; 

w.ds. chary <- w.ds. chary + 1; 

END; 
SELECT w.type FROM 

clear, -- window is simply cleared on activation 

random => -- USERS responsibility to repaint screen 
w.displayproc[w]; -- dispatch to procedure 

scratch, -- data is maintained in scratch file 

scriptfile, -- data is maintained in typescript file 

file "> -- window on a file 

IF w.file # NIL THEN w. displ ayproc[w] ; -- dispatch to procedure 

ENDCASE; 
UpdateSelection[w]; 
END; 

DrawDisplayWindow: PUBLIC PROCEDURE [w: WindowHandle] » 
BEGIN 

-- declare locals 
pfont: FAptr; 

rectangle: Rptr = w. rectangle; 
x,y,lineheight: INTEGER; 
-- write box name 

[pfont. lineheight] <- GetDef aul tFont[] ; 
IF w.name # NIL THEN 

[x,y] <- WriteRectangleString[rectangle, 2, 1, w.name, pfont 
I RectangleError => 
SELECT error FROM 

NotVisible, 

RightOverf low, 

BottomOverflow => CONTINUE; 

ENDCASE]; 
— invert the top stripe; 

InvertBoxInRectangle[rectangle, 0, rectangle . cw, 0, lineheight + 1]; 
-- draw box arround the edge; 

DrawBoxInRectangle[rectangle, 0, rectangle. cw, 0, rectangle. ch] ; 
END; 

FindDisplayWindow: PUBLIC PROCEDURE [x: xCoord, y: yCoord] 
RETURNS [WindowHandle, xCoord, yCoord] » 
-- This guy takes Cursor coordinates and tries to find 
-- the "top most" window for them and 
-- returns the x,y in window coords 
BEGIN 

-- define locals 

wptr: WindowHandle <- currentwindow; 
rectangle: Rptr; 
wx: xCoord; 
wy: yCoord; 
slop: INTEGER *- 6; 
-- now check windows 

IF wptr « NIL THEN RETURN[NIL. 0, 0]; 
DO 

rectangle <- wptr . rectangle; 

wx ♦- X - (rectangle. xO + rectangle. bitmap . xO) ; 

wy <- y - (rectangle. yO + rectangle. bitmap .yO) ; 

IF (wx >« -slop) AND (wx <= rectangle .width + slop) AND 
(wy >« -slop) AND (wy <« rectangle . height + slop) THEN 
RETURN[wptr, wx, wy]; 

wptr ^ wptr. 1 ink; 
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IF wptr « currentwindow THEN RETURN[NIL, 0, 0]; 
slop ^ 0; 
ENDLOOP; 
END; 

SetCurrentDisplayWindow: PUBLIC PROCEDURE [w: WindowHandl e] 
BEGIN 

-- define locals 
next: WindowHandle; 
-- check if window ring is empty 
IF currentwindow ■ NIL THEN 

BEGIN w.link <- w; DoDataSetup[w]; END 
ELSE 

IF w # currentwindow THEN 
BEGIN 

IF blinkOn THEN [] ^ Bl inkCursor[] ; 
-- unlink him if he is currently linked 

IF w.link ff NIL THEN Unl inkDispl ayWindow[w] ; 
-- push current guys data 

UndoDataSe tup [currentwindow]; 
--• now link him into window ring 
w.link <- currentwindow; 
next ^ currentwindow; 
WHILE next. link ^ currentwindow DO 
next <- next. link; 
ENDLOOP; 
next . 1 ink ^ w; 
DoDataSetup[w] ; 
END; 
""- make it current and repaint the data 
currentwindow <- w; 
PaintDisplayWindow[w] ; 
END; 



-- Routines for maintaining Window Data 

DoDataSetup: PROCEDURE [w: WindowHandle] « 
BEGIN 

-- do everything to make this guy's data backup active 
SELECT w.type FROM 

clear => NULL; -- window is simply cleared on activation 
random => NULL; -- USERS responsibility to repaint screen 
scriptfile => NULL; -- data is maintained in typescript file 
scratch, -- data is maintained in scratch file 
file => -" window on a file 

IF w.file # NIL THEN 

OpenDiskStream[w.f ile I StreamError «> 

BEGIN w.eofindex ^ Getlndex[w. f ile] ; RESUME END]; 
ENDCASE; 
END; 

UndoDataSetup: PROCEDURE [w: WindowHandle] « 
BEGIN 

-- do everything to make this guy's data backup inactive 
SELECT w.type FROM 

clear => NULL; -- window is simply cleared on activation 
random => NULL; -~ USERS responsibility to repaint screen 
scratch «> -- data is maintained in scratch file 
IF w.file # NIL THEN 
BEGIN 

IF w.tempindex « Nulllndex THEN 
w.eofindex <- Getlndex[w.f il e] ; 
CloseDiskStream[w. f ile] ; 
END; 
scriptfile => -- data is maintained in typescript File 
IF w.file ft NIL THEN 
BEGIN 

IF w.tempindex « Nulllndex THEN w.eofindex «- Getlndex[w. f ile] ; 
StreamDef s.CleanupDiskStream[w.f ile] ; 
END; 
file «> -- window on a File 

IF w.file *t NIL THEN StreamDef s .CloseDiskStream[w. Fi le] ; 
ENDCASE; 
END; 
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WriteWindowChar: PROCEDURE [stream: StreamHandle, char: UNSPECIFIED] 
BEGIN 

-- define locals 

w: WindowHandle ^ currentwindow; 
r: Rptr; 

index: Streamlndex; 
update: BOOLEAN ♦- FALSE; 
-- make sure its a Display Stream 
WITH ds:stream SELECT FROM 
Display »> 
BEGIN 

IF blinkOn THEN [] ♦- Bl inkCursor[] ; 
IF w.ds If @ds THEN w <- FindWindowWithStream[@ds] ; 
SELECT w.type FROM 

clear, -- window is simply cleared on activation 
random ■> -- USERS responsibility to repaint 

WriteDisplayChar[@ds, char]; 
scratch, -- data is maintained in scratch file 
scriptfile «> -- data is maintained in typescript file 
BEGIN 

IF currentwindow. ds # @ds THEN 
BEGIN 

w.tempindex ^ Nulllndex; 
w. ds. options. StopBottom <- FALSE; 
SetCurrentDisplayWindow[w] ; 
IF w.ks ff NIL THEN OpenKeyStream[w. ks] ; 
-- move the mouse into the windowll 
r <- w. rectangle; 

xmloct ^ r. bitmap. xO-+-r.xO+(r. width/2) ; 
ymloct <- r. bitmap .yO+r .yO+(r. height/2) ; 
xcloct <- xmloct; 
ycloct 4- ymloct; 
END 
ELSE 

IF w.tempindex # Nulllndex THEN 
BEGIN 

w.ds .options. StopBottom <- FALSE; 
IF Getlndex[w.f ile] = w.eofindex THEN 
BEGIN 

w.fileindex *- w.tempindex; 
w.tempindex <- Nulllndex; 
END 
ELSE 

BEGIN -- reposition file to the end 
w.tempindex ^ Nulllndex; 
PaintDisplayWindow[w]; 
END; 
END; 
SELECT char FROM 

ControlA, BS => -- back space character 
BEGIN 

index <- ModifyIndex[GetIndex[w.f ile] , -1]; 
w.eofindex <- index; 
Setlndex[w.f ile, index]; 
END; 
ENDCASE «> 
BEGIN 

index ♦- Getlndex[w.f ile] ; 
w.f ile. put[w. file, char]; 
w.eofindex *- ModifyIndex[index, 1]; 
WriteDispl ayChar[@ds , char 
1 StreamError «> 

IF stream « w.ds THEN 
BEGIN 

IF error « StreamEnd THEN 
BEGIN 

~" update the selection 
w. selection . leftl ine <- 

MAX[1, w, selection. leftline] - 1; 
w. selection, rightl ine ♦■ 

MAX[1, w. select ion . rightl ine] - 1; 
END; 
FixupOnOverf low[ 
w, error, IF char U 15B THEN backup ELSE okay]; 
RESUME; 
END 
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3; 

END; 
END; 
file "> NULL; -- window on a file 
ENDCASE; 
END; 
ENDCASE -> ERROR StreamError[stream, StreainType]; 
END; 

DisplayFileData: PROCEDURE [w: WindowHandle] « 
BEGIN 

-- NOTE: this routine wants to be super efficientll 
-- should use port to write characters 
■■■" dfifins locflls 

bbtable: ARRAY [0. .SIZE[BitBl fcDefs.BBTable]] OF WORD; 
bbptr: BitBltDef s .BBptr <- 

L00PH0LE[BASE[bbtable]+L00PH0LE[BASE[bbtab1e]. CARDINAL] MOD 2]; 
nchars, count: INTEGER; 
i, width: CARDINAL; 
cw : FCDot r * 

fullwin: BOOLEAN ^ FALSE; 
index: Streamlndex ; 
char: UNSPECIFIED; 
pfont: FAptr = w,ds.pfont; 
x: CARDINAL ♦- w.ds.charx; 
xO: CARDINAL = w. rectangle . xO ; 
y: CARDINAL <- w.ds. chary + w. rectangle. yO; 
-- check if really a file there 
IF w.file = NIL THEN RETURN; 
-- check if temporary positioning 
IF w.tempindex # Nulllndex THEN 

BEGIN 

1 inestarts[w.ds,l ine] ^ w.tempindex; 

Setlndex[w.f ile, w.tempindex]; 

END 
ELSE 

BEGIN 

1 inestarts[w.ds . 1 ine] ♦- w.fileindex; 

Setlndex[w.f ile, w.fileindex]; 

END; 
-- setup to do this fast 
bbptrt ♦- [ 

pad: 0, 

sourcealt: FALSE, 

destalt: FALSE, 

sourcetype: block, 

function: paint, 

dbca: w. rectangle. bitmap. addr, 

dbmr : w. rectangle. bitmap .wordsperline. 

dlx: , 

dty:. 

dw: , 

dh: . 

sbca: , 

sbmr: 1, 

six: 0, 

sty: 0, 

unused: , 

grayO:, grayl:, gray2:, gray3:]; 
index <- Getlndex[w. f ile]; 
nchars ^ 0; 

IF w.type « file THEN count <- 10000 
ELSE count *- 

(w.eof index .page-index. page)*512 + (w.eoF index .byte- index. byte) ; 
-- fill the window with text 
WHILE count > DO 

char ♦- w. file. get[w. file 
1 StreamError *> 
BEGIN 

w.eofindex ^ Getlndex[w.f ile]; 
EXIT; 
END]; 

nchars <- nchars + 1; 

X <- (width *- ComputeCharWidth[char , pfont]) + x; 

IF char < 40C THEN 
BEGIN 
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w.ds.charx ♦- x - width; 
S t reamDefs. Scroll Displ ay [w.ds, char 
1 StreamError ■> 
IF stream ■ w.ds THEN 
BEGIN 

IF error - StreamEnd 
AND w.ds. options. StopBottom THEN 
BEGIN 

linestarts[w.ds.line+l] ^ ModifyIndex[ind0x, nchars]; 
fullwin <- TRUE; 
EXIT; 
END 
ELSE FixupOnOverf 1ow[w, error, okay]; 
RESUME; 
END]; 
y ^ w.ds. chary + w, rectangle. yO; 
X ♦- w.ds .charx; 
END 
ELSE IF X >=• w. rectangle. cw THEN 
BEGIN 

w.ds. charx <- x - width; 
StreamDefs.ScrollDisplay[w.ds, char 
1 StreamError •»> 
IF stream ■ w.ds THEN 
BEGIN 

IF error « StreamEnd 
AND w.ds. options. StopBottom THEN 
BEGIN 

1 inestarts[w.ds . 1 ine+1] ♦- ModifyIndex[index, nchars-1]; 
fullwin ♦- TRUE; 
EXIT; 
END 
ELSE FixupOnOverf low[w, error, backup]; 
RESUME; 
END]; 
y ^ w.ds. chary + w. rectangle. yO; 
X <- w.ds .charx; 
END 
ELSE 
BEGIN 

bbptr.dlx ♦- X - width + xO; 
DO 

cw <- LOOPHOLE[pfont[char]+LOOPHOLE[pfont.CARDINAL]+char]; 
bbptr.dty *- y + cw. height; 

bbptr.sbca ^ cw - (bbptr.dh <- cw. displacement) ; 
IF cw.HasNoExtension THEN 
BEGIN 

bbptr.dw <- cw.widthORext; 
BitBltDefs.BITBLT[bbptr]; 
EXIT 
END 
ELSE 
BEGIN 

BitBltDefs.BITBLT[bbptr]; 
bbptr.dlx <- bbptr.dlx+16; 
END; 
Char ^ cw.widthORext; 
ENDLOOP; 
END; 
count <- count-1; 
ENDLOOP; 
w.ds.char^x <- x; 

-- set remainder of line table null 

IF NOT fullwin THEN 1 inestar ts[w . ds . 1 ine +1] <- Nulllndex; 
FOR i IN [w.ds.line+2. .maxl ines) DO 
1 inestar ts[i] ^ Nulllndex; 
ENDLOOP; 
IF w.type = file AND Grlndex[w.f i leindex, w.eofindex] THEN 
BEGIN 

w.eofindex <- FileLength[w.f ile] ; 
Setlndex[w. f ile, w.f ileindex]; 
END; 
END; 

FixupOnOverflow: PROCEDURE [ 

w: WindowHandle, error: StreamErrorCode, index: {okay, backup}] »» 
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-- NOTE: this routine is specific to windows using streams 

BEGIN 

-- define locals 

i: CARDINAL; 

-- fix up the line table based upon error code 

SELECT error FROM 

StreamEnd ■> -- scroll it all up one line 
BEGIN 
FOR i IN [L.maxlines) DO 

linestarts[i] ^1 inestarts[i+l]; 
ENDLOOP; 
w.fileindex *- 1 inestarts[l] ; 
END; 
StreamPosition «> NULL; 
ENDCASE; 
-- set current position in correspondence table 
IF index » backup THEN 

linestarts[w.ds.line] *• ModifyIndex[GetIndex[w.f ile] , -1] 
ELSE linestarts[w.ds.line] ♦- Getlndex[w.f ile] ; 
END; 

FindWindowWithStream: PROCEDURE [ds: DisplayHandle] RETURNS [WindowHandle] 
BEGIN 

-- define locals 

w: WindowHandle <- currentwindow; 
-- run around window ring and find it 
IF w = NIL THEN RETURNCNIL]; 
DO 

IF w.ds » ds THEN RETURN[w]; 

w <- w. 1 ink; 

IF w « currentwindow THEN EXIT; 

ENDLOOP; 
ERROR; -- good enough for now 
END; 

blinkOn: BOOLEAN <- FALSE; 

BlinkCursor: PUBLIC PROCEDURE RETURNS [BOOLEAN] « 
BEGIN OPEN w: currentwindow; 
ds: StreamDefs .DisplayHandle; 
IF currentwindow « NIL OR (w.type ff scratch AND w.type # scriptfile) OR 

w.file # NIL AND Getlndex[w.f ile] ^ w.eofindex THEN RETURN[bl inkOn]; 
ds <r w.ds; 
RectangleDef s. InvertBoxInRectangle[ 

ds. rectangle, ds.charx+1, 2, ds.chary+1, ds . 1 ineheight--2]; 
RETURN[blinkOn ♦- -blinkOn] 
END; 

END. . . of Window 



